home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / defmacro.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1993-06-05  |  10.9 KB  |  187 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  4.    MACRO-CALL-ERROR REMOVE-OLD-DEFINITIONS
  5.    #Y(MACRO-CALL-ERROR #17Y(00 01 00 00 00 02 D4 8B 02 AB 6A 63 6A AC AC 5A 03)
  6.       "The macro ~S may not be called with ~S arguments"
  7.   )  )
  8. #Y(#:TOP-LEVEL-FORM-3 #11Y(00 00 00 00 00 01 D4 2F 5F 19 01)
  9.    (SPECIAL %RESTP %MIN-ARGS %ARG-COUNT %LET-LIST %KEYWORD-TESTS %DEFAULT-FORM)
  10.   )
  11. #Y(#:TOP-LEVEL-FORM-4 #14Y(00 00 00 00 00 01 D4 D4 73 01 30 97 19 01)
  12.    MACRO-MISSING-VALUE
  13.   )
  14. #Y(#:TOP-LEVEL-FORM-5 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) ANALYZE-AUX
  15.    #Y(ANALYZE-AUX
  16.       #64Y(00 02 00 00 00 03 AA 1A 2E 8B 00 BE 55 1A 20 D6 AB 8B 02 5A 02 D7 D8
  17.            AC 2B 03 05 19 04 8B 00 85 2D 67 92 53 1F 69 92 53 70 93 53 54 70 59
  18.            02 14 0E 01 55 0F 01 7A 00 92 20 63 89 00 58 00 19 04
  19.           )
  20.       (NIL) %LET-LIST "in macro ~S: ~S may not be used as &AUX variable."
  21.       "The rest of the lambda list will be ignored."
  22.       "The lambda list of macro ~S contains a dot after &AUX." CERROR
  23.   )  )
  24. #Y(#:TOP-LEVEL-FORM-6 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) ANALYZE-KEY
  25.    #Y(ANALYZE-KEY
  26.       #585Y(00 03 00 00 00 04 5C 5B AD 01 04 96 1F 82 27 7E 04 03 14 23 00 80
  27.             BB AB 23 01 80 BB AB 23 03 80 BE AB 23 04 80 B9 AB 23 05 80 B4 AB
  28.             23 06 80 AF AB 23 07 80 AA AB 23 08 80 A5 0E 0C 1C 16 AB 85 2D 80
  29.             A0 95 1F 0E AB 6A 63 24 0D 08 95 53 14 63 0C 59 02 ED AB 85 2D 80
  30.             8E 95 1F 80 99 8B 03 85 2D 80 C3 95 53 1F 80 F8 95 53 70 86 A1 80
  31.             F1 95 53 54 1F 80 EB 95 53 54 70 86 2D 81 42 95 53 53 EC 95 53 54
  32.             70 E3 B3 AD 5D 1F 6B 03 1F 73 02 0E 11 55 0F 11 95 54 54 1C 80 D4
  33.             95 54 54 70 86 2D 80 CC 95 54 54 53 EB 1C 80 C6 14 E9 5D 16 98 53
  34.             54 70 5D 20 6B 02 1F 5D 18 5D 19 9A 53 54 70 9B 54 70 73 03 5D 21
  35.             6B 02 1F 03 22 14 31 03 1F 1A 80 B7 74 06 1A 81 49 8C 04 B1 2E 02
  36.             1A 81 62 DD C8 1A 15 95 1A FF 67 AB 6A A0 63 0E 77 FC 02 AB E3 B3
  37.             AD CE 1A 55 E6 D1 14 B2 98 1A 80 69 95 54 54 53 EB 1C 80 48 14 E9
  38.             5D 16 8B 06 5D 17 6B 02 1F 5D 18 5D 19 8B 08 9B 54 70 73 03 5D 1A
  39.             6B 02 1F 03 1B 1A FF A5 8B 03 6A A0 63 0E 77 FC 02 8B 03 E3 B3 AD
  40.             E8 6B 03 1F 73 02 0E 11 55 0F 11 95 54 54 1C 08 95 54 54 70 85 2D
  41.             FF B2 74 01 8B 03 E9 5D 16 8B 06 5D 1C 6B 02 1F 98 54 70 99 1A 26
  42.             5D 1D 5D 1E B2 98 53 14 2B 04 0B 1A 80 B2 74 01 95 53 54 70 E9 5D
  43.             16 98 53 54 70 5D 23 6B 02 1F 98 54 70 99 53 54 70 59 04 14 73 02
  44.             0E 11 55 0F 11 AA 7B 05 1A 80 89 95 54 54 53 EB 1C 80 48 14 E9 5D
  45.             16 AB 5D 25 6B 02 1F 5D 18 5D 19 AD 9B 54 70 73 03 5D 26 6B 02 1F
  46.             5D 27 31 03 1F 1A 3B 95 53 53 EC 36 01 78 A4 00 14 E3 B3 AD 5D 24
  47.             6B 03 1F 73 02 0E 11 55 0F 11 95 54 54 1C 08 95 54 54 70 85 2D FF
  48.             B2 74 01 A8 E9 5D 16 AB 5D 28 6B 02 1F 98 54 70 99 53 54 70 59 04
  49.             14 73 02 0E 11 55 0F 11 AA 7B 05 03 29 10 2A 03 29 10 2B 00 10 2C
  50.             00 10 0C A1 53 54 70 B5 5E 16 B7 2B 04 2D 12 04 7A 04 1A FD E6 5D
  51.             30 AD 5D 31 AB 73 02 73 03 0E 32 55 0F 32 19 06 8A 04 08 5D 2E 5D
  52.             2F B2 2B 03 0B 16 05 89 01 5F 00 19 06
  53.            )
  54.       &ALLOW-OTHER-KEYS &AUX ANALYZE-AUX &ENVIRONMENT &WHOLE &OPTIONAL &REST
  55.       &BODY &KEY "It will be ignored."
  56.       "The lambda list of macro ~S contains a badly placed ~S." CERROR
  57.       %DEFAULT-FORM 1. *KEYWORD-PACKAGE* GETF (NIL) %LET-LIST
  58.       "It will be ignored."
  59.       "The lambda list of macro ~S contains the invalid element ~S"
  60.       (MACRO-MISSING-VALUE) IF EQ (MACRO-MISSING-VALUE) PROGN SETQ (NIL) (T)
  61.       (MACRO-MISSING-VALUE) "It will be ignored."
  62.       "The lambda list of macro ~S contains an invalid keyword specification ~S"
  63.       (MACRO-MISSING-VALUE) (MACRO-MISSING-VALUE) (NIL) (T)
  64.       (MACRO-MISSING-VALUE) (MACRO-MISSING-VALUE) (MACRO-MISSING-VALUE) (NIL)
  65.       (T) (MACRO-MISSING-VALUE) 0. %MIN-ARGS %ARG-COUNT %RESTP ANALYZE1
  66.       "The rest of the lambda list will be ignored."
  67.       "The lambda list of macro ~S contains a dot after &KEY." KEYWORD-TEST
  68.       QUOTE %KEYWORD-TESTS
  69.   )  )
  70. #Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) ANALYZE-REST
  71.    #Y(ANALYZE-REST
  72.       #92Y(00 03 00 00 00 04 95 1F 2F 8B 03 86 2D 2E 8B 03 8C 04 02 0F 02 A9 AD
  73.            73 02 0E 03 55 0F 03 92 51 1D 38 92 1F 1D 8B 00 23 07 20 8B 00 23 09
  74.            24 DF E0 AD AB 2B 04 06 19 06 D4 AA 5A 01 D5 AA 8B 05 5A 02 D8 D9 AD
  75.            2B 03 06 19 06 8C 00 AA AD 2B 03 08 19 06 8C 00 AC 2E 0A 19 06 19 06
  76.           )
  77.       "The lambda list of macro ~S is missing a variable after &REST/&BODY."
  78.       "The lambda list of macro ~S contains an illegal variable after &REST/&BODY: ~S"
  79.       %RESTP %LET-LIST "The rest of the lambda list will be ignored."
  80.       "The lambda list of macro ~S contains a misplaced dot." CERROR &KEY
  81.       ANALYZE-KEY &AUX ANALYZE-AUX "They will be ignored."
  82.       "The lambda list of macro ~S contains superfluous elements: ~S"
  83.   )  )
  84. #Y(#:TOP-LEVEL-FORM-8 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) CONS-CAR
  85.    #Y(CONS-CAR
  86.       #33Y(00 01 00 00 00 02 5B 94 1F 0A 8B 02 D4 36 03 77 E3 00 1B 06 D5 AB 59
  87.            02 19 03 8C 00 95 54 55 19 03
  88.           )
  89.       ((CAR . CAAR) (CDR . CADR) (CAAR . CAAAR) (CADR . CAADR) (CDAR . CADAR)
  90.        (CDDR . CADDR) (CAAAR . CAAAAR) (CAADR . CAAADR) (CADAR . CAADAR)
  91.        (CADDR . CAADDR) (CDAAR . CADAAR) (CDADR . CADADR) (CDDAR . CADDAR)
  92.        (CDDDR . CADDDR) (CDDDDR . FIFTH)
  93.       )
  94.       CAR
  95.   )  )
  96. #Y(#:TOP-LEVEL-FORM-9 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) CONS-CDR
  97.    #Y(CONS-CDR
  98.       #33Y(00 01 00 00 00 02 5B 94 1F 0A 8B 02 D4 36 03 77 E3 00 1B 06 D5 AB 59
  99.            02 19 03 8C 00 95 54 55 19 03
  100.           )
  101.       ((CAR . CDAR) (CDR . CDDR) (CAAR . CDAAR) (CADR . CDADR) (CDAR . CDDAR)
  102.        (CDDR . CDDDR) (CAAAR . CDAAAR) (CAADR . CDAADR) (CADAR . CDADAR)
  103.        (CADDR . CDADDR) (CDAAR . CDDAAR) (CDADR . CDDADR) (CDDAR . CDDDAR)
  104.        (CDDDR . CDDDDR)
  105.       )
  106.       CDR
  107.   )  )
  108. #Y(#:TOP-LEVEL-FORM-10 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) ANALYZE1
  109.    #Y(ANALYZE1
  110.       #454Y(00 04 00 00 00 05 AC 01 03 95 1F 81 9A 7E 03 01 14 23 00 80 4B A9
  111.             23 03 80 63 A9 23 07 80 6D A9 23 08 80 68 A9 23 0A 80 6C A9 23 0D
  112.             80 81 A9 23 10 80 80 A9 23 13 80 86 89 02 80 D2 63 1F 30 AB 0F 1F
  113.             63 15 30 AB 0F 15 A9 86 2D 81 30 A9 B0 2D 18 14 73 02 0E 01 55 0F
  114.             01 1A 81 42 C0 1A 81 50 8A 05 79 95 54 1C 75 95 54 70 86 2D 6F 95
  115.             54 70 AE 73 02 0E 01 55 0F 01 7A 03 1A 81 25 8A 02 07 D8 D9 B0 AC
  116.             2B 04 06 75 02 1A 81 16 8C 03 B0 B0 2B 03 09 19 09 36 01 78 A4 00
  117.             02 0F 0B A8 B0 73 02 0E 01 55 0F 01 8C 03 A9 B0 2B 03 0C 19 09 E2
  118.             CD 1A 02 E5 D0 14 B0 AC 2B 04 06 1A 80 E4 8C 03 AF 2E 14 19 09 93
  119.             1A 80 5F 97 54 53 1A 0D 8B 01 5D 1A B1 B2 67 18 97 54 20 6F 00 14
  120.             73 04 73 02 0E 01 55 0F 01 93 54 1F 80 B4 93 54 54 1F 80 AE 93 54
  121.             54 70 85 2D 80 75 5D 1B AF 95 54 54 70 5A 02 5D 1A B1 B2 67 18 97
  122.             54 70 59 04 1A 3D 63 15 30 AB 0F 15 0E 16 1C 16 A9 85 2D FF A8 93
  123.             1F 0E A9 6A 63 24 17 08 93 53 14 63 16 59 02 EB A9 85 2D FF 1A 93
  124.             1F 80 49 8B 01 85 2D FF 91 36 01 78 A4 00 14 94 54 20 FF B9 B0 2D
  125.             18 14 73 02 0E 01 55 0F 01 03 1E 10 1F 03 1E 10 15 00 10 0B 8B 0A
  126.             B2 B9 B4 2B 04 20 12 03 93 54 54 1F 31 93 54 54 70 5D 1C 5D 1D B2
  127.             73 02 59 02 1A FE D4 93 20 06 5D 19 AF AB 5A 02 03 1E 10 1F 03 1E
  128.             10 15 00 10 0B B2 B9 67 18 B9 BB 67 18 2B 04 20 12 03 AF 2D 21 F1
  129.             7A 03 1A FE 62 8A 03 19 14 85 2D 07 03 22 14 AF AD 5A 02 AB B0 73
  130.             02 0E 01 55 0F 01 02 0F 0B 19 09 00 19 09
  131.            )
  132.       &WHOLE %LET-LIST
  133.       "The lambda list of macro ~S contains an invalid &WHOLE: ~S" &OPTIONAL
  134.       "It will be ignored."
  135.       "The lambda list of macro ~S contains a superfluous ~S." CERROR &REST
  136.       &BODY ANALYZE-REST &KEY %RESTP ANALYZE-KEY &ALLOW-OTHER-KEYS
  137.       "It will be ignored."
  138.       "The lambda list of macro ~S contains ~S before &KEY." &ENVIRONMENT
  139.       "It will be ignored."
  140.       "The lambda list of macro ~S contains ~S which is illegal here." &AUX
  141.       ANALYZE-AUX %ARG-COUNT %DEFAULT-FORM 1. CONS-CAR
  142.       "The lambda list of macro ~S contains an invalid element ~S" IF
  143.       "The lambda list of macro ~S contains an invalid supplied-variable ~S"
  144.       NOT NULL 0. %MIN-ARGS ANALYZE1 CONS-CDR
  145.       "The lambda list of macro ~S contains an illegal &REST variable: ~S"
  146.   )  )
  147. #Y(#:TOP-LEVEL-FORM-11 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) REMOVE-ENV-ARG
  148.    #Y(REMOVE-ENV-ARG
  149.       #77Y(00 02 00 00 00 03 AA 1A 3A AB 5B 1A 08 8C 01 8B 02 7B 01 62 01 8B 01
  150.            24 00 73 A8 94 54 71 2F CB 16 01 EA 93 54 53 1A 20 92 54 1F 0B 92 54
  151.            70 86 2D 05 92 54 53 1B 52 D5 AB AD 5A 02 8B 00 23 00 67 7A 00 92 20
  152.            76 AB 00 14 3C 02 19 04
  153.           )
  154.       &ENVIRONMENT
  155.       "In the lambda list of macro ~S, &ENVIRONMENT must be followed by a non-NIL symbol: ~S"
  156.   )  )
  157. #Y(#:TOP-LEVEL-FORM-12 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01)
  158.    MAKE-LENGTH-TEST
  159.    #Y(MAKE-LENGTH-TEST
  160.       #82Y(00 01 00 00 00 02 63 00 86 A6 04 0E 01 1B 20 63 00 85 A6 1E 0E 01 1B
  161.            23 63 00 63 04 88 01 2B 1E C4 14 D7 AB 73 02 0E 00 14 6A AB 59 03 19
  162.            02 00 19 02 D6 D7 AB 73 02 0E 04 1A 6D C3 1A 63 DB DC 63 00 6A AB D7
  163.            AD 73 02 63 04 6A AB 73 04 59 02 19 02
  164.           )
  165.       %MIN-ARGS %RESTP > LENGTH %ARG-COUNT < /= NOT <=
  166.   )  )
  167. #Y(#:TOP-LEVEL-FORM-13 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01)
  168.    MAKE-MACRO-EXPANSION
  169.    #Y(MAKE-MACRO-EXPANSION
  170.       #189Y(00 01 00 00 00 02 93 1F 0F 8B 01 86 2D 0E 93 54 20 17 C0 14 8B 02
  171.             5A 01 D4 AA 5A 01 BF 1A 74 00 1A 80 74 14 59 01 1A 80 74 8B 01 94
  172.             54 70 95 54 71 A8 5C 5B 2F 64 3E 03 8A 01 06 D7 94 72 59 01 EB AC
  173.             AE 2E 04 3E 02 C3 10 06 C3 10 07 00 10 08 00 10 09 00 10 0A 00 10
  174.             0B BB E0 5E 1B E1 2B 04 0E E1 67 0F E4 63 09 6A 65 5E 18 63 0A 6A
  175.             65 5E 1B 6B 03 20 6B 02 1F 8A 01 07 E5 AA E6 AB 59 04 EA E7 5E 1C
  176.             E8 E1 E9 89 19 02 03 16 14 73 03 5D 17 89 19 FF 8A 03 18 14 89 1C
  177.             FF 87 00 14 5D 19 5E 23 B1 73 03 73 01 6B 03 20 6B 03 1F 73 03 5E
  178.             1C 5E 1C 5E 19 3C 04 16 02 12 06 19 0A
  179.            )
  180.       "Cannot define a macro from that: ~S"
  181.       "The name of a macro must be a symbol, not ~S"
  182.       "Macro ~S is missing a lambda list." DECLARE REMOVE-ENV-ARG 0. %ARG-COUNT
  183.       %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS %DEFAULT-FORM
  184.       (CDR <MACRO-FORM>) <MACRO-FORM> ANALYZE1 MAKE-LENGTH-TEST LET* IF
  185.       (MACRO-CALL-ERROR <MACRO-FORM>) FUNCTION LAMBDA &OPTIONAL <ENV-ARG>
  186.       (DECLARE (CONS <MACRO-FORM>)) ((DECLARE (IGNORE <ENV-ARG>))) BLOCK
  187.   )  )